inherited frmFixAssetList: TfrmFixAssetList
  Left = 377
  Top = 178
  Caption = #22266#23450#36164#20135#28165#21333
  PixelsPerInch = 119
  TextHeight = 12
  inherited Panel1: TPanel
    inherited edtFilter: TcxTextEdit
      ExplicitHeight = 20
    end
  end
  inherited pnlMain: TPanel
    inherited MainDataGrid: TcxGrid
      inherited MainDataGridDBTableView: TcxGridDBTableView
        object colcardcode: TcxGridDBColumn
          Caption = #22266#23450#36164#20135#21345#21495
          DataBinding.FieldName = 'cardcode'
          Width = 60
        end
        object cxgrdbclmnAssetCode: TcxGridDBColumn
          Caption = #22266#23450#36164#20135#32534#21495
          DataBinding.FieldName = 'assetcode'
          Width = 90
        end
        object cxgrdbclmnName: TcxGridDBColumn
          Caption = #22266#23450#36164#20135#21517#31216
          DataBinding.FieldName = 'name'
          Width = 90
        end
        object cxgrdbclmnSpecific: TcxGridDBColumn
          Caption = #35268#26684#22411#21495
          DataBinding.FieldName = 'specific'
          Width = 100
        end
        object cxgrdbclmnUsedDate: TcxGridDBColumn
          Caption = #20837#36134#26085#26399
          DataBinding.FieldName = 'useddate'
          Width = 100
        end
        object cxgrdbclmnPlanUseMonth: TcxGridDBColumn
          Caption = #39044#35745#20351#29992#26376#20221
          DataBinding.FieldName = 'planusemonth'
          Width = 81
        end
        object cxgrdbclmnPlanWorkValue: TcxGridDBColumn
          Caption = #39044#35745#24037#20316#24635#37327
          DataBinding.FieldName = 'planworkvalue'
          Width = 74
        end
        object cxgrdbclmnPrice: TcxGridDBColumn
          Caption = ' '#21333#20215
          DataBinding.FieldName = 'price'
        end
        object cxgrdbclmnQuantity: TcxGridDBColumn
          Caption = #25968#37327
          DataBinding.FieldName = 'quantity'
          Width = 49
        end
        object cxgrdbclmnRawAmt: TcxGridDBColumn
          Caption = #20837#36134#21407#20540
          DataBinding.FieldName = 'rawamt'
        end
        object cxgrdbclmnSumDeprAmt: TcxGridDBColumn
          Caption = #32047#31215#25240#26087
          DataBinding.FieldName = 'sumdepramt'
        end
        object cxgrdbclmnNetValue: TcxGridDBColumn
          Caption = #20928#20540
          DataBinding.FieldName = 'netvalue'
        end
        object cxgrdbclmnRemainAmt: TcxGridDBColumn
          Caption = #39044#35745#20928#27531#20540
          DataBinding.FieldName = 'remainamt'
          Width = 94
        end
        object cxgrdbclmnRemainRate: TcxGridDBColumn
          Caption = #27531#20540#29575#65288'%'#65289
          DataBinding.FieldName = 'remainrate'
          Width = 86
        end
        object cxgrdbclmnFilName: TcxGridDBColumn
          Caption = #26426#26500#21517#31216
          DataBinding.FieldName = 'filname'
          Width = 90
        end
        object cxgrdbclmnCleared: TcxGridDBColumn
          Caption = #26159#21542#28165#29702
          DataBinding.FieldName = 'cleared'
          Width = 60
        end
      end
    end
  end
  inherited pnlBottom: TPanel
    inherited chkGroupSort: TcxCheckBox
      Left = 497
      ExplicitLeft = 497
      ExplicitWidth = 69
      ExplicitHeight = 20
    end
    inherited chkHandGroup: TcxCheckBox
      Left = 573
      ExplicitLeft = 573
      ExplicitWidth = 69
      ExplicitHeight = 20
    end
    inherited lblGroupSort: TcxLabel
      Left = -180
      Top = -4
      ExplicitLeft = -180
      ExplicitTop = -4
    end
    inherited edtPause: TcxComboBox
      Left = 743
      ExplicitLeft = 743
      ExplicitHeight = 20
    end
    inherited chkGridFilter: TcxCheckBox
      Left = 656
      ExplicitLeft = 656
      ExplicitWidth = 69
      ExplicitHeight = 20
    end
    inherited btnNew: TcxButton
      TabOrder = 8
    end
    object btnClear: TcxButton
      Left = 193
      Top = 8
      Width = 90
      Height = 28
      Caption = #20943#23569
      TabOrder = 6
      OnClick = btnClearClick
    end
    object btnChange: TcxButton
      Left = 287
      Top = 8
      Width = 90
      Height = 28
      Caption = #21464#21160
      TabOrder = 7
      OnClick = btnChangeClick
    end
  end
  inherited MainDataSource: TDataSource
    Left = 157
    Top = 123
  end
  inherited qyTmpDataSet: TUniQuery
    Left = 426
    Top = 106
  end
  inherited MainDataSetU: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO tfb_fixedassets'
      
        '  (fixedassetid, filid, newtypeid, statusid, fatypeid, deprmetho' +
        'did, addvoucherid, cardcode, assetcode, name, specific, location' +
        ', useddate, planusemonth, sumusedmonth, planworkvalue, sumworked' +
        'value, workunit, rawamt, sumdepramt, remainamt, remainrate, mont' +
        'hdepramt, monthdeprrate, deproption, cleared, addr, vendorname, ' +
        'producename, initflag, price, quantity, foreignamt)'
      'VALUES'
      
        '  (:fixedassetid, :filid, :newtypeid, :statusid, :fatypeid, :dep' +
        'rmethodid, :addvoucherid, :cardcode, :assetcode, :name, :specifi' +
        'c, :location, :useddate, :planusemonth, :sumusedmonth, :planwork' +
        'value, :sumworkedvalue, :workunit, :rawamt, :sumdepramt, :remain' +
        'amt, :remainrate, :monthdepramt, :monthdeprrate, :deproption, :c' +
        'leared, :addr, :vendorname, :producename, :initflag, :price, :qu' +
        'antity, :foreignamt)')
    SQLDelete.Strings = (
      'DELETE FROM tfb_fixedassets'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLUpdate.Strings = (
      'UPDATE tfb_fixedassets'
      'SET'
      
        '  fixedassetid = :fixedassetid, filid = :filid, newtypeid = :new' +
        'typeid, statusid = :statusid, fatypeid = :fatypeid, deprmethodid' +
        ' = :deprmethodid, addvoucherid = :addvoucherid, cardcode = :card' +
        'code, assetcode = :assetcode, name = :name, specific = :specific' +
        ', location = :location, useddate = :useddate, planusemonth = :pl' +
        'anusemonth, sumusedmonth = :sumusedmonth, planworkvalue = :planw' +
        'orkvalue, sumworkedvalue = :sumworkedvalue, workunit = :workunit' +
        ', rawamt = :rawamt, sumdepramt = :sumdepramt, remainamt = :remai' +
        'namt, remainrate = :remainrate, monthdepramt = :monthdepramt, mo' +
        'nthdeprrate = :monthdeprrate, deproption = :deproption, cleared ' +
        '= :cleared, addr = :addr, vendorname = :vendorname, producename ' +
        '= :producename, initflag = :initflag, price = :price, quantity =' +
        ' :quantity, foreignamt = :foreignamt'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLLock.Strings = (
      'SELECT * FROM tfb_fixedassets'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQLRefresh.Strings = (
      
        'SELECT fixedassetid, filid, newtypeid, statusid, fatypeid, deprm' +
        'ethodid, addvoucherid, cardcode, assetcode, name, specific, loca' +
        'tion, useddate, planusemonth, sumusedmonth, planworkvalue, sumwo' +
        'rkedvalue, workunit, rawamt, sumdepramt, remainamt, remainrate, ' +
        'monthdepramt, monthdeprrate, deproption, cleared, addr, vendorna' +
        'me, producename, initflag, price, quantity, foreignamt FROM tfb_' +
        'fixedassets'
      'WHERE'
      '  fixedassetid = :Old_fixedassetid')
    SQL.Strings = (
      
        'select distinct fa.fixedassetid,fdt.name as fdtname,fa.newtypeid' +
        ' as newtypeid, '
      
        '                fnt.name as fntname,fa.statusid as statusid,fs.n' +
        'ame as fsname, '
      
        '                fa.fatypeid as fatypeid,ft.code as ftcode,ft.nam' +
        'e as ftname,fa.deprmethodid as deprmethodid, '
      
        '                fdm.name as fdmname,fa.initflag,fa.addvoucherid,' +
        ' '
      
        '                fa.cardcode,fa.assetcode,fa.name,fa.specific,fa.' +
        'location, '
      
        '                fa.useddate,fa.planusemonth,fa.sumusedmonth,fa.p' +
        'lanworkvalue, '
      
        '                fa.sumworkedvalue,fa.workunit,fa.rawamt,fa.sumde' +
        'pramt, '
      '                round((fa.rawamt-fa.sumdepramt),2) as netvalue, '
      
        '                fa.remainamt,fa.remainrate,fa.monthdepramt,fa.mo' +
        'nthdeprrate, '
      
        '                fa.deproption,fa.cleared,fa.addr,fa.vendorname,f' +
        'a.producename, '
      
        '                fa.price,fa.quantity,fa.foreignamt,m.name as mon' +
        'eyname, '
      
        '                sj.subcode + sj.subname as sjname,sjd.subcode + ' +
        'sjd.subname as dprsjname, '
      '                fa.filid,s.fi_filnm as filname, '
      '                fai.ybastdebit,fai.sumdebit,fai.sumcredit, '
      '                fai.bastdebit,fai.ydprcredit,fai.sumdprdebit, '
      '                fai.sumdprcredbit,fai.dprcredit,fai.ydepramt '
      '              from tfb_fixedassets fa '
      
        '              left join tfb_fixedassetsinit fai on fa.fixedasset' +
        'id=fai.fixedassetid '
      '              left join tfd_fixaststype ft on fa.fatypeid=ft.id '
      
        '              left join tfd_fixastsnewtype fnt on fa.newtypeid=f' +
        'nt.id '
      
        '              left join tfd_fixastsdeltype fdt on fa.fadeltypeid' +
        '=fdt.id '
      
        '              left join tfd_fixastsstatus  fs on fa.statusid=fs.' +
        'id '
      
        '              left join tfd_fixastsdeprmethod fdm on fa.deprmeth' +
        'odid=fdm.id '
      
        '              left join tfd_subject sj on fa.astsubid=sj.subject' +
        'id '
      
        '              left join tfd_subject sjd on fa.dprsubid=sjd.subje' +
        'ctid '
      '              left join td_money m on fa.foreigncurid=m.moneyid '
      '              left join td_filiale s on fa.filid=s.fi_filid')
    Left = 248
    object intgrfldMainDataSetUfixedassetid: TIntegerField
      FieldName = 'fixedassetid'
    end
    object MainDataSetUfdtname: TStringField
      FieldName = 'fdtname'
      Size = 48
    end
    object intgrfldMainDataSetUnewtypeid: TIntegerField
      FieldName = 'newtypeid'
    end
    object MainDataSetUfntname: TStringField
      FieldName = 'fntname'
      Size = 48
    end
    object intgrfldMainDataSetUstatusid: TIntegerField
      FieldName = 'statusid'
    end
    object MainDataSetUfsname: TStringField
      FieldName = 'fsname'
      Size = 48
    end
    object intgrfldMainDataSetUfatypeid: TIntegerField
      FieldName = 'fatypeid'
    end
    object MainDataSetUftcode: TStringField
      FieldName = 'ftcode'
      Size = 40
    end
    object MainDataSetUftname: TStringField
      FieldName = 'ftname'
      Size = 48
    end
    object intgrfldMainDataSetUdeprmethodid: TIntegerField
      FieldName = 'deprmethodid'
    end
    object MainDataSetUfdmname: TStringField
      FieldName = 'fdmname'
      Size = 48
    end
    object blnfldMainDataSetUinitflag: TBooleanField
      FieldName = 'initflag'
    end
    object intgrfldMainDataSetUaddvoucherid: TIntegerField
      FieldName = 'addvoucherid'
    end
    object MainDataSetUcardcode: TStringField
      FieldName = 'cardcode'
      Size = 40
    end
    object MainDataSetUassetcode: TStringField
      FieldName = 'assetcode'
      Size = 40
    end
    object MainDataSetUname: TStringField
      FieldName = 'name'
      Size = 60
    end
    object MainDataSetUspecific: TStringField
      FieldName = 'specific'
      Size = 60
    end
    object MainDataSetUlocation: TStringField
      FieldName = 'location'
      Size = 60
    end
    object MainDataSetUuseddate: TDateTimeField
      FieldName = 'useddate'
    end
    object intgrfldMainDataSetUplanusemonth: TIntegerField
      FieldName = 'planusemonth'
    end
    object intgrfldMainDataSetUsumusedmonth: TIntegerField
      FieldName = 'sumusedmonth'
    end
    object fltfldMainDataSetUplanworkvalue: TFloatField
      FieldName = 'planworkvalue'
    end
    object fltfldMainDataSetUsumworkedvalue: TFloatField
      FieldName = 'sumworkedvalue'
    end
    object MainDataSetUworkunit: TStringField
      FieldName = 'workunit'
      Size = 30
    end
    object fltfldMainDataSetUrawamt: TFloatField
      FieldName = 'rawamt'
    end
    object fltfldMainDataSetUsumdepramt: TFloatField
      FieldName = 'sumdepramt'
    end
    object fltfldMainDataSetUnetvalue: TFloatField
      FieldName = 'netvalue'
    end
    object fltfldMainDataSetUremainamt: TFloatField
      FieldName = 'remainamt'
    end
    object fltfldMainDataSetUremainrate: TFloatField
      FieldName = 'remainrate'
    end
    object fltfldMainDataSetUmonthdepramt: TFloatField
      FieldName = 'monthdepramt'
    end
    object fltfldMainDataSetUmonthdeprrate: TFloatField
      FieldName = 'monthdeprrate'
    end
    object blnfldMainDataSetUdeproption: TBooleanField
      FieldName = 'deproption'
    end
    object blnfldMainDataSetUcleared: TBooleanField
      FieldName = 'cleared'
    end
    object MainDataSetUaddr: TStringField
      FieldName = 'addr'
      Size = 60
    end
    object MainDataSetUvendorname: TStringField
      FieldName = 'vendorname'
      Size = 60
    end
    object MainDataSetUproducename: TStringField
      FieldName = 'producename'
      Size = 60
    end
    object fltfldMainDataSetUprice: TFloatField
      FieldName = 'price'
    end
    object fltfldMainDataSetUquantity: TFloatField
      FieldName = 'quantity'
    end
    object fltfldMainDataSetUforeignamt: TFloatField
      FieldName = 'foreignamt'
    end
    object MainDataSetUmoneyname: TStringField
      FieldName = 'moneyname'
      Size = 60
    end
    object MainDataSetUsjname: TWideStringField
      FieldName = 'sjname'
      Size = 100
    end
    object MainDataSetUdprsjname: TWideStringField
      FieldName = 'dprsjname'
      Size = 100
    end
    object intgrfldMainDataSetUfilid: TIntegerField
      FieldName = 'filid'
    end
    object MainDataSetUfilname: TStringField
      FieldName = 'filname'
      Size = 60
    end
    object fltfldMainDataSetUybastdebit: TFloatField
      FieldName = 'ybastdebit'
    end
    object fltfldMainDataSetUsumdebit: TFloatField
      FieldName = 'sumdebit'
    end
    object fltfldMainDataSetUsumcredit: TFloatField
      FieldName = 'sumcredit'
    end
    object fltfldMainDataSetUbastdebit: TFloatField
      FieldName = 'bastdebit'
    end
    object fltfldMainDataSetUydprcredit: TFloatField
      FieldName = 'ydprcredit'
    end
    object fltfldMainDataSetUsumdprdebit: TFloatField
      FieldName = 'sumdprdebit'
    end
    object fltfldMainDataSetUsumdprcredbit: TFloatField
      FieldName = 'sumdprcredbit'
    end
    object fltfldMainDataSetUdprcredit: TFloatField
      FieldName = 'dprcredit'
    end
    object fltfldMainDataSetUydepramt: TFloatField
      FieldName = 'ydepramt'
    end
  end
end
